home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / READBS.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  55 lines
  1. 10 POKE55,.:POKE56,160:CLR:Q$=CHR$(34):M$=CHR$(13):GOSUB800
  2. 20 PRINT"[147][142]"
  3. 30 PRINT"ENTER DISK DRIVE DEVICE NUMBER."
  4. 40 PRINT"(ENTER 0 TO EXIT.)"
  5. 50 PRINT"  8[145]":INPUTD:IFD=.THENEND
  6. 60 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO30
  7. 70 POKE2,36:POKE184,8:POKE185,.:POKE186,D
  8. 80 POKE183,1:POKE187,2:POKE188,.:SYS65472
  9. 90 CLOSE8:IFPEEK(783)AND1THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO30
  10. 100 OPEN15,D,15:PRINT"[147]";
  11. 110 PRINT"ENTER A FILENAME."
  12. 120 F$="":INPUTF$:IFF$THEN140
  13. 130 PRINT:CLOSE15:GOTO30
  14. 140 OPEN8,D,1,F$:GOSUB500:IFATHENCLOSE8:GOTO130
  15. 150 PRINT"[147]WRITING ";Q$;F$;Q$;"...";:SYS4045:PRINTTAB(33);"...DONE";
  16. 160 GOTO130
  17. 500 INPUT#15,A,B$,C,E
  18. 510 IFATHENPRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,E
  19. 520 RETURN
  20. 800 PRINT"[147]    [212]HIS PROGRAM SHOULD HELP 1541/1571"
  21. 805 PRINT"USERS WHO ARE GETTING [196][207][211] ERROR MESSAGES";
  22. 810 PRINT"WHEN THEY TRY TO READ A FILE.  [201]F THERE"
  23. 815 PRINT"ARE BAD SECTORS (AS OFTEN HAPPENS WHEN"
  24. 820 PRINT"DISKS HAVE BEEN USED MANY MANY TIMES),"
  25. 825 PRINT"YOU WILL GET A [210][197][193][196] [197][210][210][207][210] (OR SOMETIMES"
  26. 830 PRINT"A [196][201][211][203] [201][196] [205][201][211][205][193][212][195][200] [197][210][210][207][210]) WHEN A READ IS";
  27. 835 PRINT"ATTEMPTED.  [201]N SUCH CASES, IT IS WISE TO";
  28. 840 PRINT"COPY THE FILES ON THE DISK TO A GOOD"
  29. 845 PRINT"DISK, USING A DISK-COPY OR A FILE-COPY"
  30. 850 PRINT"UTILITY.  [212]O LET YOU DO THAT, THIS"
  31. 855 PRINT"PROGRAM WILL OVERWRITE A BYTE IN [196][207][211]"
  32. 860 PRINT"ZERO-PAGE MEMORY SO THAT 63 ATTEMPTS TO"
  33. 865 PRINT"READ A TRO    
  34. 20307 ME SECTOR ARE MADE (THE"
  35. 870 PRINT"DEFAULT IS 5).  [212]HAT IS OFTEN SUFFICIENT";
  36. 875 PRINT"TO LET YOU COPY THE FILES (OR THE DISK).";
  37. 880 PRINT"[210]ESET THE DRIVE TO PUT THE DEFAULT VALUE";
  38. 885 PRINT"BACK IN."
  39. 890 PRINT"              [208][210][197][211][211] [210][197][212][213][210][206][146]";
  40. 895 GETA$:IFA$<>M$THEN895
  41. 900 PRINT"[147]    [197]NTER THE DISK DRIVE DEVICE NUMBER"
  42. 905 PRINT"AT THE FIRST PROMPT, AND A FILENAME AT"
  43. 910 PRINT"THE SECOND PROMPT.  [193] ONE-BLOCK FILE"
  44. 915 PRINT"WILL BE WRITTEN TO DISK, USING THAT"
  45. 920 PRINT"FILENAME.  [215]HEN READY TO TRY TO READ THE";
  46. 925 PRINT"BAD SECTORS, LOAD";    
  47. 18758 LENAME";Q$;",(null),1 (WHERE"
  48. 930 [153]"(null) IS THE DEVICE NUMBER).  STR$O (null)(null)(null) TRY TO"
  49. 935 [153]"RUN THE PROGRAM; JUST LOADING IT WILL DO";
  50. 940 [153]"THE JOB.  ATNND ANY PEEKATN(null)RIGHT$LEN PROGRAM IN"
  51. 945 [153]"MEMORY WILL BE PRESERVED."
  52. 950 [153]"              (null)(null)VAL(null)(null) (null)VAL(null)(null)(null)(null)WAIT";
  53. 955 [161]A$:[139]A$[179][177]M$[167]955
  54. 960 [142]
  55.